home *** CD-ROM | disk | FTP | other *** search
/ Games of Daze / Infomagic - Games of Daze (Summer 1995) (Disc 1 of 2).iso / x2ftp / msdos / mxcode / adnmod02 / modtest.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1995-02-06  |  369 b   |  21 lines
  1. uses modunit,crt;
  2. begin
  3.   if paramcount < 1 then halt(1);
  4.   gusfind;
  5.   gusreset;
  6.   init_mod;
  7.   load_mod(paramstr(1),true);
  8.   if mod_error <> 0 then begin
  9.     writeln('Error loading mod!');
  10.     halt(1);
  11.   end;
  12.   start_playing;
  13.   writeln('Playing...');
  14.   writeln('Press ''ANY'' key to stop');
  15.   readkey;
  16.   stop_playing;
  17.   free_mod;
  18.   gusdeinit;
  19. end.
  20.  
  21.